10 A$="":DIMA$(790):GOSUB100:HD$="":PRINT"[147][159]"
20 RV=0:BX=0:EX=40:BY=0:BD=19:BC=7:GOSUB130:GOSUB450:POKE53281,0:POKE53280,0
30 BX=1:EX=39:BY=21:BD=1:BC=3:GOSUB130
40 LN$="                                      ":X$=CHR$(13):CU=3:N=197
50 MS$="LOADING ROUTINES...":GOSUB190
60 SYS57812"BUDGET MANUAL.O",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
70 FI$="T.BUDGET DOCS"
80 GOTO210
90 REM*******GENERATE VARIABLES**********
100 BA$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
110 A$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":FORI=1TO6:BD$=BD$+A$:NEXT:RETURN
120 REM*********PRINT BOX*************
130 OC=PEEK(646):POKE646,BC:RV$="":IFRVTHENRV$=""
140 POKE211,BX:POKE214,BY:SYS58732:PRINTRV$"[176]"LEFT$(BA$,EX-BX-2)"[174][157]";
150 PRINTRV$LEFT$(BD$,BD*3):PRINTRV$SPC(BX)"[145][173]"LEFT$(BA$,EX-BX-2)"[189]"
160 POKE211,BX:POKE214,BY+1:SYS58732:PRINTRV$LEFT$(BD$,BD*3)"":POKE646,OC
170 RV=0:RETURN
180 REM****PRINT MESSAGE****
190 GOSUB200:PRINT"[158]"LEFT$(HD$,23)SPC(20-LEN(MS$)/2)MS$"[159]":RETURN
200 PRINTLEFT$(HD$,23)""LEFT$(LN$,36):RETURN
210 H=-1:MS$="[204][207][193][196][201][206][199] [212][197][216][212]...":GOSUB190:L=1:OPEN2,8,2,FI$+",P,R":GET#2,A$,A$
220 IFLTHENSYS828,2,40:H=H+1:I=ST:IFA$=""THENA$=" "
230 A$(H)=A$:IFH=19THENGOSUB360
240 A$(H)=A$:IFH=39THENMS$="[217]OU CAN PAGE NOW. (STILL LOADING)":GOSUB190
250 IFPEEK(N)=64ANDST=0THEN220
260 IFPEEK(N)=7THENIFPEEK(653)=0THENGOSUB470
270 IFPEEK(N)=41THENIFL=0THENGOSUB530
280 IFPEEK(N)=20THENGOSUB790:GOSUB380
290 IFPEEK(N)=62THENGOSUB650
300 IFPEEK(N)=51THENPA=0:GOSUB370
310 IFPEEK(N)=12THENIFPEEK(653)=4THENPA=19*INT(H/19):GOSUB500
320 IFPEEK(N)=7THENIFPEEK(653)=1THENGOSUB500
330 IFLTHENIFST=0THENGOTO220
340 IFLTHENCLOSE2:GOSUB720:GOSUB700:L=0
350 GOTO260
360 REM**DISPLAY TEXT***
370 FORD=0TO10:POKE214,D:PRINT:PRINT""LN$:POKE214,18-D:PRINT:PRINT""LN$:NEXT
380 POKE646,CU:POKE214,9:PRINT:PRINT""A$(10+PA):FORD=1TO9:POKE214,9-D:PRINT
390 PRINT""A$(10-D+PA):POKE214,9+D:PRINT:PRINT""A$(10+D+PA):NEXT
400 PRINTHD$LN$HD$SPC(14+L*3)"[155][208]AGE[158]"INT(1+PA/19);
410 IFL=0THENPRINT"[155]OF[158]"LP"[159]"
420 IFLTHENPRINT"[159]"
430 RETURN
440 REMCLEAR LINE LINKS
450 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
460 REM PAGE
470 IFH<PA+38THENIFLTHENRETURN
475 IFINT(1+PA/19)=LPTHENRETURN
480 IFH<PA+19THENRETURN
490 PA=PA+19:GOSUB360:RETURN
500 IFPA-19<0THENRETURN
510 PA=PA-19:GOSUB360:RETURN
520 REM***PRINT***
530 CLOSE15:CLOSE4:OPEN15,4,8:CLOSE15:IFSTTHENPOKE53281,1:POKE53281,0:RETURN
540 MS$="[211]INGLE SHEET OR [212]RACTOR? ([211]/[212]/^)":GOSUB190
550 GETA$:IFA$<>"S"ANDA$<>"T"ANDA$<>"^"THEN550
560 IFA$="^"THENGOSUB700:RETURN
570 T=1:IFA$="S"THENT=0
580 MS$="[211]ET TOP OF FORM/[159][210]ETURN/[158]^":GOSUB190:POKE198,0:WAIT198,1:GETA$
584 IFA$="^"THEN560
585 GOSUB640
586 FORII=1984TO2023:POKEII,32:NEXT
590 OPEN4,4,7:II=0:PRINT#4,X$X$X$X$:FORI=1TOH
600 PRINT#4,A$(I)SPC(40-LEN(A$(I)))A$(I+55):II=II+1:IFII<55THEN630
610 II=0:PRINT#4,X$X$X$X$X$X$X$X$X$X$:I=I+55:IFTTHEN630
620 MS$="[206]EXT SHEET/[159][210][197][212][213][210][206]/[158]^":GOSUB190:POKE198,0:WAIT198,1:GETA$
625 IFA$="^"THENI=1000:NEXT:CLOSE4:GOTO560
630 GOSUB640:NEXT:GOSUB400:GOSUB700:RETURN
640 MS$="[208]RINTING...":GOSUB190:RETURN
650 MS$="[209]UIT?  [193]RE YOU SURE?  ([217]/[206])":GOSUB190:POKE198,0
660 GETA$:IFA$<>"Y"ANDA$<>"N"THEN660
670 IFA$<>"Y"THENGOSUB200:GOSUB700:RETURN
680 GOTO740
690 REM*** MENU ****
700 PRINTLEFT$(HD$,23)""LEFT$(LN$,36)"[145]"
710 PRINT"[158][195][210][211][210]-[213][208]/[196][206][146][159] TO PAGE  [158][209][146][159] [209]UIT [158][208][146][159] [208]RINT":RETURN
720 LP=H/19:IFLP>INT(LP)THENLP=INT(LP)+1:RETURN
730 RETURN
740 OPEN15,8,15,"R0:BUDGET BOOT=BUDGET BOOT":INPUT#15,ER:CLOSE15
750 IF ER<>63 THEN PRINT"[147]":END
760 A$="BUDGET BOOT":Q$=CHR$(34):PRINT"[147]"
770 PRINT"[144]LOAD"Q$A$Q$",8"
780 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
790 CU=CU+1:IFCU=16THENCU=1
800 POKE646,CU:RETURN